home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 1
/
Cream of the Crop 1.iso
/
PROGRAM
/
TOT_2.ARJ
/
DEMO.EXE
/
arc
/
DEMOV1.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-02-11
|
957b
|
46 lines
program DemoOverlay1;
{demov - be sure that the OVERLAY compiler directive is enabled
in the TOTFLAGS.INC file before compiling}
{$I TOTFLAGS.INC}
Uses OVERLAY, DOS, CRT,
totSYS, totLOOK, totINPUT, totFAST, totWIN, totIO1, totMSG;
{$O totSYS}
{$O TOTLOOK}
{$O totINPUT}
{$O totFAST}
{$O totWIN}
{$O totIO1}
{$O totMSG}
Var
MsgWin : MessageOBJ;
begin
OvrInit('DEMOV1.OVR'); {initialize the overlay}
OvrInitEMS;
SYSInit; {initialize the Toolkit units}
LOOKInit;
INPUTInit;
FASTInit;
WINInit;
IO1Init;
MSGInit;
Screen.Clear(white,'░'); {paint the screen}
with MsgWin do
begin
Init(1,' Message ');
AddLine('');
AddLine('The message unit provides a');
AddLine('very easy way of displaying');
AddLine('pop-up messages in a move-');
AddLine('able window.');
AddLine('');
Show;
Done;
end;
end.